Метод DeleteLines.

Стирает одну строку или указанную последовательность строк.

Синтаксис
объект.DeleteLines (строка [, количество])

Параметры
объект
Обязательный. Объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение".
строка
Обязательный. Переменная типа Long, указывающая номер первой строки, которую надо стереть.
количество
Необязательный. Переменная типа Long, указывающая количество строк, которые надо стереть.

Пример
Следующий пример состоит из двух частей. Первый цикл For…Next с помощью метода InsertLines вставляет в область окна программы CodePanes(1) 26 последовательно удлиняющихся сегментов латинского алфавита, начиная с буквы "a". Последний вставленный сегмент представляет собой весь алфавит.
Во второй части цикл For…Next использует метод DeleteLines для удаления строк с нечетными номерами. На первый взгляд кажется, что второй цикл должен просто стирать каждую вторую строку, однако следует принять во внимание, что после каждой операции удаления нумерация строк производится заново. Следовательно, на каждом шаге стирается каждая третья строка: первая строка пропускается, так как I увеличивается на единицу, а вторая -- поскольку больший номер строки каждый раз уменьшается на единицу.

For I = 1 to 26
	Application.VBE.SelectedVBComponent.CodeModule.InsertLines i, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next
For I = 1 to 13
	Application.VBE.SelectedVBComponent.CodeModule.DeleteLines I
Next
Hosted by uCoz